home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / DATABASE / FOXRYAN.ZIP / VERIFY5.PRG < prev    next >
Text File  |  1993-07-11  |  683b  |  36 lines
  1. m.today = {07/09/93}
  2. for m.i = 1 to 1
  3.     m.form = "form" + alltrim(str(m.i))
  4.     m.newdb = m.form + ".dbf"
  5.     m.olddb = "b:" + m.newdb
  6.     select 0
  7.     use &newdb alias newdata
  8.     delete for .T.
  9.     pack
  10.     select 0
  11.     use &olddb alias olddata noupdate
  12.     go top
  13.     scan
  14.         scatter memvar memo
  15.         if m.1 = 1
  16.             m.passzone = m.parkinglot
  17.         select newdata
  18.         append blank
  19.         gather memvar memo
  20.         select facility
  21.         go top
  22.         locate for facility.facility=olddata.facility
  23.         if eof()
  24.             insert into facility (company, facility) values ("Company", olddata.facility)
  25.         endif
  26.         select olddata
  27.     endscan
  28.     * Invariant: olddata is the current database.
  29.     use
  30.     select newdata
  31.     use
  32. endfor
  33.     
  34.     
  35.  
  36.